Исходный текст

Option Explicit
Call ShowVerInfo(ThisObject)

'==============================================================================
' Вывести список всех версий объекта с указанием текущей версии
Sub ShowVerInfo(Obj)

        Dim versions, i, testvers
        
        'Получить ссылку на коллекцию версий объекта        
        Set versions = Obj.Versions
        testvers = "Test version"
        
        'Вывести информацию по каждой версии.
        With versions 
            For i = 0 to .Count - 1
                If .Item(i).ActiveVersion Then 
                    ThisApplication.AddNotify _
                        "Версия № " & .Count - i & " " & .Item(i).VersionDescription & " - текущая"
                Else 
                    ThisApplication.AddNotify  "Версия № " & .Count - i & " " & .Item(i).VersionDescription
                End If
            Next
            If .Has(testvers) Then ThisApplication.AddNotify "В коллекции присутвуют тестовые версии"
        End With
End Sub
'==============================================================================